program par;
uses
        crt;
var
        I: LongInt;
        X: integer;
        Limite: integer;
begin
        clrscr;
        X := 0;
        I := 0;

        write(' Informe o Limite: ');
        readln(Limite);

        // while X < Limite do
        for X := 1 to Limite do
        begin
                if ( X mod 2 ) = 0 then
                        I := I + X;
                // inc(X);
                // writeln(x);
        end;

        writeln('A soma dos numeros pares menores que ', Limite,' e ', I);
        readkey;
end.
